Excel VBA系列之批量复制模板工作表 | 您所在的位置:网站首页 › vba复制 sheet › Excel VBA系列之批量复制模板工作表 |
1. 根据如图所示模板,新建多张以模板为基础的工作表,一共有8个学期,以“第X学期”表示。 2. 打开Visual Basic,新增模块和过程,称之为“模板建表”。 Sub 模板建表() End Sub 3. 添加一个for循环,共循环8次,新建8张工作表。 Sub 模板建表() Dim i As Integer For i = 1 To 8 Next End Sub 4. 添加新建工作表的代码。 Sub 模板建表() Dim i As Integer For i = 1 To 8 Sheet1.Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Range("E3") = "第" & i & "学期" Next End Sub 1)Sheet1.Copy 复制模板 2)after:=Sheets(Sheets.Count) 放在最后一张表后面 3)Sheets(Sheets.Count).Range("E3") = "第" & i & "学期",在新建表的E3单元格输入“第i学期”。 5. 执行以上代码后,即可新建复制模板的工作表。 6. 如果要同时把新建的工作表的名称修改,也可以加入以下代码: Sub 模板建表() Dim i As Integer For i = 1 To 8 Sheet1.Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Range("E3") = "第" & i & "学期" Sheets(Sheets.Count).Name = "第" & i & "学期成绩表" Next End Sub 7. 再次执行新的过程后,得到如图所示的多张模板工作表。 参考视频:Excel VBA批量复制模板工作表 - 知乎 |
CopyRight 2018-2019 实验室设备网 版权所有 |